R/6_0 general.R

In CivilEngineerUK/EC3_1_1: EC3-1-1 smartcalc Module

library(smartcalc)
#' @export
`eq_6.1` <- eq(function(`\\sigma_{x,Ed}`, `\\sigma_{z,Ed}`,
                     `\\tau_{Ed}`, `\\gamma_{M0}`, `f_y`){
  (`\\sigma_{x,Ed}` / `f_y` %//% `\\gamma_{M0}`)^2 +
    (`\\sigma_{z,Ed}` / `f_y` %//% `\\gamma_{M0}`)^2 - 
    (`\\sigma_{x,Ed}` / `f_y` %//% `\\gamma_{M0}`) * 
    (`\\sigma_{z,Ed}` / `f_y` %//% `\\gamma_{M0}`) +
    3 * (`\\tau_{Ed}` / `f_y` %//% `\\gamma_{M0}`)^2
}, 
eq = '6.1', clause = '6.2.1', subclause = 5, type = 'general' 
)